﻿Imports System.Data.OleDb

Public Class AanofAfwezig
    Inherits System.Web.UI.Page
    Dim strCode As String = Request.QueryString("ID")

    Protected Sub btnAanwezig_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAanwezig.Click

        'DECLARATIE
        Dim cnnDatabase As New OleDbConnection
        Dim cmdNaam As New OleDbCommand

        'Invoer + VERWERKING
        'cnnDatabase.ConnectionString = My.Settings.cnnstrAandeelhouders

        'Connectie met databank openen
        cnnDatabase.Open()
        With cmdNaam
            'Connectie leggen met databank
            .Connection = cnnDatabase
            'SQL code 
            .CommandText = "UPDATE [tblAandeelhouders] SET  Aanwezig = 'Nee' WHERE Code='" & strCode & "';"
            .ExecuteNonQuery()
        End With

        'Connectie sluiten
        cnnDatabase.Close()

        'Indien ze op de knop aanwezig drukken komt er volgend bericht te voor schijn
        lblResultaat.Text = "Wij verheugen ons op uw komst naar de aandeelhoudersvergadering"
        btnAanwezig.Enabled = False
        btnAfwezig.Enabled = False

    End Sub

    Protected Sub btnAfwezig_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAfwezig.Click
        'Declaratie
        Dim cnndatabase As New OleDbConnection
        Dim cmdNaam As New OleDbCommand
        Dim strCode As String

        'Invoer + VERWERKING

        ' cnndatabase.ConnectionString = My.Settings.cnnstrAandeelhouders
        'Connectie met databank openen
        cnndatabase.Open()

        With cmdNaam
            'Connectie leggen met databank
            .Connection = cnndatabase
            'SQL code
            .CommandText = "UPDATE [tblAandeelhouders] SET  Aanwezig = 'Ja' WHERE Code='" & strCode & "';"
            .ExecuteNonQuery()
        End With

        'Connectie afsluiten
        cnndatabase.Close()

        'Indien ze op afwezig drukken komt er volgend  bericht tevoorschijn:
        lblResultaat.Text = "Wij vinden het jammer dat u afwezig zult zijn op de aandeelhoudersvergadering."
        btnAanwezig.Enabled = False
        btnAfwezig.Enabled = False



    End Sub
End Class